home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / alpine escape (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  103 lines
  1. 10 rem    alpine escape ver.2.0/jc hilty/may88
  2. 12 ifa=0thena=1:load"sprite.mvt",8,1
  3. 14 ifa=1thena=2:load"scroll.ml",8,1
  4. 15 ifa=2thena=3:load"alpine.sp",8,1
  5. 20 gosub500:gosub400
  6. 50 sys49152:jy=peek(56320)and15:getky$
  7. 51 ifky$="[145]"orjy=14thensys49152:sc=sc+10:print""tab(32)sc:goto57
  8. 52 ifky$=""orjy=7thenx1=x1+8:ifx1>240thenx1=240
  9. 54 ifky$="[157]"orjy=11thenx1=x1-8:ifx1<36thenx1=36
  10. 56 pokev,x1
  11. 57 onlgosub100,110,100,120,100,120,130,120,110:l=l+1:ifl=10thenl=1
  12. 58 w1=peek(v+30):ifw1and1then250
  13. 59 w2=peek(v+31):ifw2and1then250
  14. 60 ifm=100then300
  15. 62 goto50
  16. 100 w=int(29*rnd(4)+1):print""tab(w)"\":return
  17. 110 m=m+1:print""tab(33)m:ifm=25thengosub180
  18. 112 return
  19. 120 ifpeek(v+16)and2thenpoke50435,254:poke50688,2:return
  20. 121 ifpeek(v+2)<40thenpoke50435,2:poke50688,2:return
  21. 122 return
  22. 130 ifpeek(v+16)and2thenreturn
  23. 131 xx=peek(v+2)
  24. 132 pokev+6,xx:pokev+4,xx:pokev+21,255:fort=0to40:next:pokev+21,243:return
  25. 180 poke50432,242
  26. 182 forx=0to24:pokes+x,0:next:pokes+1,2:pokes+5,31:pokes+24,15
  27. 184 pokes,240:pokes+4,129:return
  28. 250 h1=peek(50432):poke50432,0:h2=peek(v+21):forx=0to24:pokes+x,0:next
  29. 252 pokes+1,111:pokes+5,31:pokes+24,15:pokes,240:pokes+4,129
  30. 254 fort=0to50:poke2040,195:forx=0to10:nextx:poke2040,196:forx=0to10:nextx:next
  31. 256 li=li-1:print""tab(34)li:ifli=0then340
  32. 258 print"":fort=0to13:printtab(1)"                             ":next
  33. 260 gosub404:pokev+21,h2:poke50432,h1:goto50
  34. 300 poke50432,0:pokev+21,3:print""
  35. 301 fort=0to13:printtab(1)"                             ":next
  36. 302 print""tab(11)"          ":printtab(11)"  finish  "
  37. 304 printtab(11)"          ":fort=0to2:printtab(11)"[144] [146]         ":next
  38. 306 fort=0to24:pokes+t,0:next:pokes+18,128:pokes,75
  39. 310 pokes+5,0:pokes+6,240:pokes+14,12:pokes+15,5:pokes+24,207:pokes+4,21
  40. 312 fort=0to36:pokes+1,peek(s+27)and224:forx=0to50:next:next:pokes+4,0
  41. 314 fort=0to2000:next
  42. 315 ifli=5thenn$="expert":sc=sc+5000:goto350
  43. 316 ifli=4thenn$="very good":sc=sc+4000:goto350
  44. 317 ifli=3thenn$="good":sc=sc+2500:goto350
  45. 318 ifli=2thenn$="fairly good":sc=sc+1500:goto350
  46. 319 ifli=1thenn$="average":sc=sc+1000:goto350
  47. 340 poke50432,0:pokev+21,0
  48. 341 ifm<25thenn$="try another career":goto350
  49. 342 ifm<50thenn$="buy new skis":goto350
  50. 344 n$="novice"
  51. 350 pokev+21,0:print""tab(32)sc
  52. 351 print"":fort=0to13:printtab(1)"                             ":next
  53. 354 print"[144]"tab(6)"rating....":printtab(6)n$:print
  54. 355 printtab(6)"[129]play again  y or n"
  55. 356 getjk$:ifjk$<>""then356
  56. 358 getpa$:ifpa$="n"then1000
  57. 360 ifpa$="y"then364
  58. 362 goto358
  59. 364 ifsc>hsthenhs=sc
  60. 365 goto20
  61. 400 poke49522,4:poke49523,1:poke49524,29:poke49525,9:poke49526,22
  62. 402 poke49527,2:poke49528,2:forx=50432to50448:pokex,0:next:sys51104
  63. 404 pokev+16,0:pokev+28,1:pokev+37,2:pokev+38,0:pokev+39,5:pokev+23,14
  64. 405 pokev+29,14:poke2040,196:pokev,130:pokev+1,196:x1=130
  65. 406 poke2041,194:pokev+40,12:pokev+2,40:pokev+3,080:pokev+5,120:pokev+7,166
  66. 408 poke2042,193:poke2043,193:poke2044,192:poke2045,192:poke2046,192
  67. 410 poke2047,192:pokev+41,8:pokev+42,8:forx=43to46:pokev+x,3:next
  68. 412 pokev+14,28:pokev+15,10:pokev+8,68:pokev+9,20:pokev+10,176:pokev+11,5
  69. 414 pokev+12,228:pokev+13,24
  70. 416 poke50442,2:poke50444,1:poke50446,3:poke50448,1:poke50435,2:poke50688,242
  71. 450 pokev+21,243:poke50432,2:w1=peek(v+30):w2=peek(v+31):return
  72. 500 print"[147]":poke53280,0:poke53281,1:x=1984:fort=0to39:pokex,160:pokex+54272,0
  73. 501 poke53272,31
  74. 502 x=x+1:next:v=53248:s=54272:l=1:m=0:li=5:sc=0
  75. 504 print"alpine  escape   alpine  escape "
  76. 505 print"l                             [146]s "
  77. 506 print"p                             [146]c "
  78. 507 print"i                             [146]a [146] [144]lives"
  79. 508 print"n         [146][169][223][169][223]    [146][169][223]          [146]p [146]"tab(34)li
  80. 509 print"e    [146][169][223][169][223][169]    [223][169][223][169]  [223][169][223]    [146][169][223] [146]e "
  81. 510 print"  [146][169][223][169]                  [223][169][223][169]  [223]  "
  82. 511 print" [169]"tab(31)" [146][144] miles"
  83. 512 print" \\\\\\\\\\\\\\\\\\\\\\\\\\\\\  "tab(33)"[146]"m
  84. 513 print"e"tab(30)"a ":print"s"tab(30)"l "
  85. 514 print"c"tab(30)"p [146] [144]score":print"a"tab(30)"i [146]"tab(32)sc
  86. 515 print"p"tab(30)"n ":print"e"tab(30)"e ":printtab(31)" [146] [144]high"
  87. 516 printtab(31)" [146] [144]score":printtab(31)" [146]"tab(32)hs
  88. 517 print"a"tab(30)"e ":print"l"tab(30)"s ":print"p"tab(30)"c "
  89. 518 print"i"tab(30)"a ":print"n"tab(30)"p "
  90. 520 print"escape  alpine   escape  alpine "
  91. 522 return
  92. 1000 print"[144]    quit : are you sure ? (y/n)        "
  93. 1001 geta$:ifa$=""then1001
  94. 1004 ifa$="n"ora$="[206]"then2000
  95. 1005 ifa$="y"ora$="y"then 1050
  96. 1010 goto 1001
  97. 1050 print"[147]":sys65418:pokev+21,0:poke53272,21
  98. 1051 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  99. 1052 ifer<>63 then print"[147]":end
  100. 1055 load"hello connect",8
  101. 2000 print"[144]                                       "
  102. 2001 goto 364
  103.